home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_359 / dice / dice.lzh / lib / extra / gethead.a < prev    next >
Text File  |  1990-03-07  |  234b  |  18 lines
  1.  
  2.         section text,CODE
  3.  
  4.         xdef    _GetHead    ; GetHead(list:4(sp))
  5.         xdef    _GetSucc    ; GetSucc(node:4(sp))
  6. _GetSucc:
  7. _GetHead:    move.l    4(sp),A0
  8.         move.l    (A0),A0
  9.         tst.l    (A0)
  10.         beq    gh0
  11.         move.l    A0,D0
  12.         rts
  13. gh0        moveq.l #0,D0
  14.         rts
  15.  
  16.         END
  17.  
  18.